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: $6_DEVELASS(RS) : 
: é BEQL + BRANCH IF SO 
! CMPB 40s WDCC$_ TAPE, - : IS THIS A TAPE DEVICE? 
; $ $6_DEVELASS(RS) : 
9 § BNEQ ¢ BRANCH IF NOT 
8 ‘ CLRL RPSL BENT(R3) + NO DATA TO TRANSFER 
: : CMPZV #1RP VF : IS THIS A VIRTUAL WRITE? 
B20 #IRPSS~ FEODE. ; 
! : IRPse FUNC (RS) .= : 
: #108. GRITEVBLK ; 
4 § NEQ 508 + BRANCH IF NOT (RETURN) 
6 824 MOVZWL #SS$_ILLIOFUNC.RO + DO NOT ALLOW VIRTUAL ERASE TO TAPES 
B 825 BRB 80$ : (ERASE FORGETS TAPE POSITION) 
‘ 108 RW EXESWRITELOCK + OTHERWISE USE "NORMAL’ ROUTINE 
B27 20$ MOVZWL #SS$_NORMAL,RO + SET SUCCESS STATUS 
: EXESFINISHIOC : COMPLETE THE 1/0 REQUEST 
B30 ; ROUND THE BYTE TRANSFER COUNT UP TO THE NEAREST MULTIPLE OF 512. 
B31 ; THIS ENSURES THAT NO PART OF A DISK BLOCK WILL BE UNTOUCHED. 
B33 $0$: TSTL RI ; CHECK BYTE COUNT 
R34 BEQL 208 ; BRANCH IF NO BYTES TO TRANSFER 
A 835 MOVAB “X1FFC(R1),R1 + ROUND UP TO NEXT PAG 
F é BICW #*X1FFLRI : TRUNCATE TRANSFER COUNT TO PAGE # 
4 & MOVL  R1,IRP$L_BCNT(R3) + SAVE R1 
§ ; DET ECT AND PROCESS ‘CASE 1° ERASE REQUESTS. THIS CASE IS HANDLED 
B40 : FIRST BECAUSE IT IS THE SIMPLEST TO PROCESS AND OCCURS MOST FREQUENTLY. 
TSTL Ro : CHECK ERASE PATTERN ADDRESS 
A § BEQL 408 + BRANCH IF ZERO - ASSUME PATTERN = 0 
5 4 IFNORD #4,(RO),70$ : BRANCH IF NO READ ACCESS 
movL (RO) RO : GET ERASE PATTERN 
: 40$ BNEG 0 : 8 F PATTERN NONZERO 
BBC #0EVSV_RCT,- : BRANCH IF NOT MSCP DEVICE 
9 § UCBSL_BEVCHAR(RS),60$ ;: OTHERWISE WE'RE DONE (CASE 1) 
¢ 849 50$: RSB : RETUR 
D 851: LF WE GET THIS FAR, IT MEANS alitts 1S NOT A ‘CASE 1° ERASE REQUEST. 
D 852 : THIS MEANS THAT THERE IS NO HARDWARE SUPPORT (VERY LIKELY), AND/OR 
D 853 : THE ERASE PATTERN IS NONZERO (VERY UNLIKELY) THE PREALLOCATED 
D 854 : EPB AND PPT WILL BE USED WHENEVER POSSIBLE. 
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SYSACPFDT = ACP FUNCTION DECISION TABLE action ROU 16-SEP-1984 01:35: AX/VMS Macro v04-00 Pa 1 SY! 
$02.50! SET UP Rage REQUEST 13-SE5=1 382 94:72:48 SYS. SRCISYSACPFDT.MAR;2 - (8, vO 
D 855; 
00000090" D0 H 5 5 60S: = MOVL GOEXESGL ERASEPPT~ ; use SYSTEM PPT = PUT ADDRESS IN IRP 
CA 5 RPSL_SVAPTE(R3) :  SVAPT NONZERO FOR ROBUSTNESS 
; : TST R + IS ERASE PATTERN ZERO? 
BNE $ ; BRANCH IF NOT = D0 IT THE HARD WAY 
9 § R ; RETURN = ‘CASE 2 
50 or ; A § 708: MOVZWL #SS$ ACCVIO,RO 3 INDICATE ACCESS VIOLATION 
F960" B62 80S: BRW EXESABORTIO + ABORT THE 1/0 
B64 ; ‘CASE 4° ERASE REQUESTS ARE HANDLED HERE. 
7 B65 ; ALLOCATE OCK OF POOL LARGE ENOUGH TO CONTAIN A PAGE-ALIGNED 
§ ; ERAS PATTERN BUFFER AND A PP LARGE ENOUGH TO MAP IT. SINCE 
B67 : THE SVA T ADVANCED FOR ERASE 1/0, AN ARBITRARILY LARGE 
B68 : ERAS REQUEST CAN BE MAPPED BY A ONE PAGE PPT. 
f B69 ; THERE IS AN ADDITIONAL 12 BYTES OF OVERHEAD FOR THE USUAL HEADER. 
59 51 £9 8F 76 037 871 $0$: ASH #-7,R1,R9 ; CALC BYTES OF PTE'S IN PPT 
52 9200 F 3¢ 0375 87 MOVZWL #518 rd ¢ LOAD VALUE INTO REGISTER 
D 7A oR? CMPL sR, RO ; IS THE PPT BIGGER THAN ONE PAGE? 
1 7D «874 BLEG §~=s«10008 + BRANCH IF NO 
59 p 7F = B75 MOVL R2,R9 + TRUNCATE PPT TO ONE PAGE 
51 020¢ c24 E : 76 100$: MOVAB 124512(R2)CR9].R1 + CALC NUMBER OF BYTES IN PPT 
D R7 PUSHL R : SAVE IRP ADDRESS 
SA p A 78 MOVL  RO,R10 ; SAVE ERASE PATTERN 
FC70° 87 BSBW EXESALLOCBUF + ALLOCATE THE E 
BED B80 POPL R : RESTORE IRP ADDRESS 
p7 Ey 93 881 BLBC Oa 808 ; EXIT IF ERROR 
2c a3. (OC A 36 ; MOVAB 12(R2),IRPSL_SVAPTE(R3) ; SET ADDRESS OF FIRST PTE 
98 884 : THE CHUNK OF POOL FOR THE EPB AND PPT IS ALLOCATED. 
98 885 ; CALCULATE THE ADDRESS OF THE EPB WITHIN THE CHUNK AND FILL IT IN. 
98 6 ; THEN FETCH THE PTE OF THE EPB AND FILL IN PPT. 
52. 0208 C249 «9 98 5 g ' MOVAB 12+511(R2)(R9],R2 : CALC ADDRESS OF END OF THE PPT 
52 1FF BF AA O3A1. & BICW aVASH BYTE Re + PAGE ALIGN THE BUFFER 
1 200 23s Ab 890 MOVZWL #512,R ; SET SIZE OF EPB 
A D ABO MOVL 10, : RESTORE PATTERN TO RO 
1 A 89 BSBB pitt BUFFER : FILL ERASE BUFFER 
15 EF 89 EXTZV ‘ ASQ_VPN.#VASS_VPN,- ; EXTRACT VIRTUAL PAGE NUMBER 
50 00000000'F Fa D B95 MOVL aMMGS$GL SPTBASECRO) RO : GET PTE THAT MAPS THE EPB 
18 F 496 INSV  #PRTSC_OR,#PTESV_PROT,- ; MAKE PTE USER READABLE 
2 39 #PTESS-PROT.R 
1 D +4 MOVL R9,R : SIZE OF PAGE TABLE 
52° 2c AS p 5 MOVL IRPSL_SVAPTE(R3),R2 : GET ADDRESS OF FIRST PTE IN PPT 
900 BSBB sd FILL_BUFFER : PROPAGATE PTE THROUGHOUT PPT 
0 B 90 $B + RETURN 


a 
SYSACPFDT = ACP FUNCTION DECISION TABLE ACTION ROU 4 AX/VMS Macro V04-00 Pp 1 
5o2 0501 : FILL eurreR (ERA REE tH) 18-8 -§ sats 7 94: 2: }§ Heys. SRCISYSACPFDT.MAR;2 ~— 3) 
c a .SBTTL FILL BUFFER (ERASE Q10) 
¢ ; FILL_BUFFER 
¢ : THIS IS OCAL SUBROUTINE USED BY THE SETUP para ASE ROUTINE TO 
¢¢ : PROPA ATE A BYTE PATTERN THROUGHOUT A IGUOUS RANGE OF 
ce ; BYTES. THE NUMBER OF BYTES IS ASSUMED. 18 BE AN INTEGER NUMBER 
ce 10 OF LONGWORDS. 
cC + INPUT 
ef 1 ; RO = 4 BYTE PATTERN 
¢ ; Ri = LENGTH OF BUFFER 
c¢ 1 ; R2 = ADDRESS OF BUFFER 
C¢ 18 > OUTPUT 
fe 920: NONE 
CC ° : : 
eC ¢ + SIDE EFFECTS: 
CC 4; THE BUFFER IS FILLED. 
CC 5; ALL REGISTERS ARE PRESERVED. 
cc : ; NO ROUTINE VALUE IS RETURNED. 
aa . 
CC 3 § FILL_BUFFER: ; PROPAGATE A LONGWORD INTO A BUFFER 
3 C€ 930 PUSHR #*M<RO,R1,R2,R3,R4,R5> : SAVE REGISTERS 
0 »D C 1 TSTL «OR ; CHECK FOR A PATTERN OF 0 
9 1 D ‘ BNE $ ; BRANCH IF NOT ZERO 
62 51 50 62 00 2C 03D 108: mOVCS # 4 (RR) RO i! (R2) ; DO IT THE FAST WAY 
F BA Dé 9 4 69S: POPR #°A<RO,R1,R2,R3,R4.R5> ; RESTORE REGISTERS 
DB : 
DB $i ; IF THE PATTERN IS SIGNIFICANT TO ONE BYTE, USE THE MOVCS. 
01 aE SO 91 O30B § 00S: CMPB RO, 1¢SP) ; ARE THE FIRST TWO BYTES IDENTICAL? 
1 DF 940 BNE 200$ : BRANCH IF NOT 
02 AE 6 E 41 CMP RO (SP) + ARE THE FIRST TWO WORDS IDENTICAL? 
éB : 4g BEQL «=s«100$ : YES = USE THE MOVCS 
E 44 THE PATTERN ASANNOT Be TPROPAGATED VIA A MOVC INSTRUCTION. 
E? 945 ; ATTEMPT 28 TIME VIA A MOVQ LOOP. 
ef 46 + ALL REMAINING Bviese vite BE MOVED A LONGWORD AT A TIME. 
53 51 00 E 48 500$: MOVL R1.R3 ; COPY SIZE OF BUFFER 
4 EA 9% CLRL RG ; CLEAR FOR 
54 53. 53 20 EC 3 EDIV #32,R3,R3.R4 ; # OF 32 BYTE CHUNKS R4 = REM. 
54°56 CFE BF? Fi 9 ASHL #=2.R4-R4 : CONVERT R4 TO # OF L ONGWORDS 
51 9 D Fé : MOVL RO,RI + SET UP FOR QUADWORD o'Roy 
D F TSTL) «OR + MAKE SURE tHe BUFFER IS BIG ENOUGH 
eh FB 4 BEQL 2208 : BRANCH IF NO 
D O3F 210$: MOVG RO,(R2)+ : MOVE A QUADWORD 
D $ : MOV RO. (RO)+ $ MOVE A QUADWORD 
D MOVQ RO. (RO)+ : MOVE A QUADWORD 
p é g MOVQ RO. (RO)+ $ MOVE A QUADWORD 
FI F SOBGTR R3.210$ + DECREMENT COUNTER AND LOOP IF MORE 
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82 i Dd ; MOVE A LONGWORD 
; D ; DECREMENT COUNTER 
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SYSACPFDT = ACP FUNCTION DECISION TABLE action’ ROU 16-S AX/VMS Macro V04-00 P 
502-501 BUILD ACP BUFFER 1SrSEb=13RS ShiFEES PANCMES Secca YORTOO «= Page 28, 
3 ¢ rv 30$: SUBL RS SUXDESCR, RO ;CALCULATE TOTAL NUMBER OF DESCRIPTORS 
A MULL i CALC at re AREumo RE QU RED BY DESCRIPTORS 
ce & B ADOW ni" SUPDA 
f 1 5 35$: BCs oni TA TIF cS AC OVERFLOW 
D 8 PUSHL SAV 176. uiutat ADDR $$ 
51 5A p B MOVL 7SET NUMBER OF BYTES EQUIRED 
fea)" BC BSBW ms FFRQUOTA :CHECK BUFFE ey! COUNT QUOTA 
E BF BLBC 4 SIF LBC QUOTA EXC EDED 
51 5a b C MOVL R10.R SET ER OF BYTES REQUIRED 
FB3B° ¢ BSBW EXE SAL LOCBUF ZALLOCATE BUFFERED 1/0 BUFFER 
2D E ce BLBS RO,50 SIF LBS SUCCESSFUL ALLOCATION 
(8 ; 
cB $ QUOTA CHECK OR BUFFER ALLOCATION FAILURE 
CB E 
98 BA CB 408: POPR #*M<R3> ;RETRIEVE 1/0 PACKET ADDRESS 
FB30" 31 ¢ 42$: BRW EXESABORTIO - 
D460 ; ACCESS VIOLATION ON DESCRIPTOR OR INFORMATION STRING ous 
r) * 
4D : CCE 
50 o¢ 3c (04D ACCVIO: MOVZWL #$$8.ACCVIO,RO :SET ACCESS VIOLATION CCé 
FB 1 p BRB 42$ ce 
D : CCE 
p : CHANGE ACCESS MODE ATTRIBUTE PROCESSING CCe 
D NEWMODE 
53 DD 04D PUSHL R 7SAVE IRP 
b4 D CLRL. OR SPECIFY MODE (MAXIMIZE CALLERS MODE) 
1 F8 AB D9 MOVZWL =8(R11),R1 :GET L 
0 fC AaB D DD VL =4(R11) RO [GET ADDRESS OF BUFFER 
00000000'EF 1 e} J$B EXESPROBEW [PROBE BUFFER 
; BED E POPL R3 
E3 £ EA BLBC = RO, ACCVIO :1F LBC, NO WRITE ACCESS 
50 FC AB 0 ED MOVL =4(R11),RO 3GET ADDRESS OF USER BUFFER 
51 6 A O46F MOVZBL (RO),R1 [LOAD NEW CURRENT ACCESS {Moe 
AB Ot FA BRB 25$ ‘AND REJOIN MAINLINE P 
XQUOTA: ; 
67 11 F BRXQUOTA:BRB = XQUOTA 
F : ACP BUFFER ALLOCATED AND ALL DESCRIPTORS CHECKED 
F 
BA 04F 50S: POPR ;RETRIEVE 1/0 PACKET ADDRESS 
A D FA MOVL % tise SVAPTE (R3) SINSERT ADDRESS OF ACP BUFFER 
A D F MOVL RPSL “BCNT(R3) SINSERT NUMBER OF DESCRIPTORS 
A A 8B MOVY $0 BOFF (R3) [SET NUMBER OF BYTES CHARGED TO QUOTA 
2A a3 1018 BF OA BSW até “4 Ux! - SET COMPLEX BUFFERED 1/0 AND 
C IRPSM_ eebbu pL RTUAL, IRPSW_STS(R3) ; VIRTUAL, COMPLEX FILE ACP 1/0 
E AG B7 ¢ DECW bipaeee 4) [CHARGE A DIRECT i/o 
82 OC Ag DE MOVAL tSET POINTER TO FIRST DESCRIPTOR 
CLRL [CLEAR SPARE LONGWORD 
A 60 051 MOVW oR (R2)+ 7SET SIZE OF BUFFER 
3 1 MOVZBW SD Yhse BUF I 6 (R2)* *SET DATA STRUCTURE TYPE 
5c go c4 oD 18 MOVL  PCBSL_JIB(R4S,A [GET JIB ADDRESS 
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SYSACPFDT = ACP FUNCTION DECISION TABLE action’ ROU 16-SEP- Axi Macro P 
yoe601 UILD ALP BUSTER 13rSEE=13ke BETES PANEMES Pace yORsO0 see 33, 
SA OSA 1 MOVZWL net 10 :CONVER 0. LONGWOR 
20 Ac A 1 SUBL Ce SL_BYTCNT(AP) UPDATE Ky NT FER D 1/0 USAGE 
5¢ 1 MULLS A 7CALCULA OFF se TO § Ant OF pata AREA 
C 1 ADDL H “A ; AL ULATE ADDR S$ OF D 
A D F 1 MOVL =R A ; E ADDRESS OF FIR i fey v BESCRIPTOR 
a D 1 MOVL §$P.R1 [SET ADDRESS OF FIRST NPU p SCRIPTOR 
1 PUSHR #*A<R3,R4,R5> ; AVE REGISTE RS RS, RO 
1 BSBBOs«WRD Esch [PROCESS WINDOW abbness DESCRIPTOR 
ate 1 BSBB sa RDDESCR SPROCESS FIB D SCRIP OR 
ea A BSBB sa RDDESCR [PROCESS NAME STRING DESCRIPTOR 
ER 4 BSBB ss RDDESCR SPROCESS RESUL STRING LENGTH DESCRIPTOR 
1 BS8B Oi DESCR i PROC $$ RESULT STRING DESCRIPT 
59 f 4p SuBL f { i CAL ULATE NUMBER OF REMAINING DESCRIPTORS 
1 45 1 BSBB DES R i DROFESS AT RiBUTE DESCRIPTOR 
rB 59 CO#FF 47 1 SOBGTR R TANY MORE ATTRIBUTES TO PROCESS? 
8 BA 4A 1 POPR #°M<R3,R4,R5> i RESTORE REGISTERS R3, R4 RS 
SE 0118 C S 4c 1 MOVAB MXD SchealsP> SP VE DESCRIPTOR STORAGE FROM STACK 
A3 D 1 MOVL CCB 4 -u¢ _UCB(R6) , IRPSL_ nEDIACRS) IN SERT ORIGINAL UCB ADDRESS 
= SeTIPL #IPLS"SYNCH NCHRONIZE ACCESS TO SYSTEM DATA BASE 
11 ? BRACCVIO1: 
50 8EDO 9 11 é POP RO 
55¢ 41103 BRACCVIO: : 
FF71 31 055€ 1104 BRW ACCVIO ; 
gar 1108 
3 F 1 $ BYTE ACCUMULATION OVERFLOW 
F 1109 ° 
3 3 F Hi XQUOTA: MOVZWL #SS$_EXQUOTA,RO :SET QUOTA EXCEEDED 
art 368 111) BRW EXESABORTIO 


LL 


vor-001 ante SENEIPYRESASOMSTAPMEVAETEOUAOY ACSERCTSES SUSTESIS VANES ece.ymucoe 4 Pane 26, 


1) ~SBTTL CHECK DESCRIPTOR AN) UPDATE BYTE ACCUMULATION 
i ; SUBROUTINE TO CHECK PARAMETER DESCRIPTOR AMD UPDATE BYTE ACCUMULATION 
1118 * 
1119 CHKDESCR: i¢ DESC 
50 8 09 1 MOVL  (AP)4.R Ge A Apo ORES oF D scRiP one 
1 BEQ upeyTtN CIFIED 
A ii IFNORD #8, (RO) ,BRACCVIO it sc RI TOR BE READ? 
51 $0 ; 1 mMOVZwL (RO) RI H OF INFORMATION STRING 
1 : BEQL yfct1 :f eat” Eno ENGTH 
50 04 A0 D 1 MOVL (RO), RO 7GET ADDRES $ OF EME UF ORMATION STRING 
et a ele 
; DD D 11 8 PUSHL R 
p4 F 11 CLRL. OR :SPECIFY MODE 
’ } 11 J$8 : ESPROBEW [PROBE FOR WRITE ACCESS 
BED 11 POPL SRESTORE REGISTERS 
ED 1 POPL : (SWAP RO & R1) 
c9 6 E 11 BLBC Rd .BRACCVIO1 IF LBC ACCESS 
BEDO 1 s POPL R TRESTORE R 
93 1135 UPBYTCNT: TINSERT DESCRIPTOR AND UPDATE BYTE ACCUMULAT 
SA 59 Ao ; 11 $ ADDW = RO, R10 [UPDATE BYTE ACCUMULATION 
: 1F é 11 BCS SIF CS ACCUMULATION OVERFLOW 
88 9 0 0598 11 3 MOVW = RO, (R11) + SINSERT LENGTS OF INFORMATION STRING 
8B «U«OB A 598 11 MOVZBW IRPS$B_RMOD(R3),(R11)* INSERT ACCESS MODE 
eB‘ p 39 1140 MOVL R1,(RT1)¢ TINSERT INFORMATION STRING ADDRESS 
2A We upaYTcTin . 
51 046 A0 DO O5A 1108 MOVL  4(RO),R1 ;GET ADDRESS 
50 04 O5A7 1144 CLRL =. RO [WE KNOW IT'S A ZERO COUNT 
11 O5A9 1145 BRB UPBYTCNT :JOIN COMMON CODE 
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SUBROUTINE TO BUILD DESCRIPTOR FOR INFORMATION THAT IS BEING READ FROM T 
: CALLING PROCESS’ ADDRESS SPACE. _ 


-ENABL LSB 


READ 


RDDESCR: eBUELD READ DESCRIPTOR 
is INDICATOR 


oi" Me 


GUN nnn nm mowDDDaw@@D aS 


1 
1 
1 
1 
1 
1 
1 
1} ; SUBROUTINE TO BYILD DESCRIPTOR FOR INFORMATION THAT WILL BE WRITTEN TO THE 
if > CALLING PROCESS’ ADDRESS SPACE. 
1162 ° 
1163 WRDESCR: ;BUILD WRITE DESCRIPTOR 
90 op 11 push, 40 :SET wri TE INDICATOR 
BA 5C A C H 1 108: SUBL R10,AP,(R10)¢ ;CALCULATE OFFSET TO DATA AREA 
FE AA 8 118 MOVW (R11)4#,-2(R10) ; INSERT LENGTH OF DATA AREA 
BC B9 11 8 VB (R11) + (AP) + TINSERT ACCESS MODE OR ATTRIBUTE NUMBER 
B OD Bc 116 INCL RIT TADVANCE TO INFORMATION ADDRESS 
BA D BF 1} MOVL (R11) #, (R10)4 TINSERT ADDRESS OF INFORMATI 
06 BE OC c} 11? BLBC }43—-« (SP) +, 30 [IF LBC INFORMATION BEING WRITTEN 
6C FC BA FA AA ¢ C4 #117 MOVC TIETE: Batt). kar ;MOVE pod TION TO BUFF 
0 FA AA CA 1176 208 MOVZUL = y »,RO :GET , NGTH OF DATA AREA 
5C 50 5 f 1175 ADDL RO,AP sPOINT TO NEXT DATA AREA 
fF id a ' 


SySAcPrOT suBGE FUNCTION, DECISION Tame acrfow Rou 16-sep-teHs Q1:35:16 YAX/VAS Macro yO4=00 | Pace 26 
-SBTTL CHECK VOLUME AND UPDATE TRANSACTION COUNT 


‘4 
t: ; ? VOLUME MARKED FOR DISMOUNT OR NOT MOUNTED 
¥: Py 
50 o07c ar 3¢ ¢ 10$: MOVZWL #5$$_DEVNOTROUNT ,RO ;SET DEVICE NOT MOUNTED 
5 t: BRB 308 
¢ 
y: : DEVICE MOUNTED FOREIGN 
+ ; 
50 0064 8F r. : mOVZUL #SS$_DEVFOREIGN,RO ;SET DEVICE FOREIGN 
Foto" 31 be $8; Brun Exesnbort io 


05p2 11 
D5dg 1180 ; 
05D 1 } SUBROUTINE 10. HECK If VOL RARKE D FOR OLUME NOT MOUNTED, 
D5dg 118¢ ; OR VOLUM ED FOREIGN. | eee U CEE, * THEN UPDATE VOLUME 
£43 1 ; PRANSAt TION to COUNT. ELSE RETURN A OPRI g pugceeD 
5D5 1185 * 
D 1 $ CHKDISMOUNTS - K IF VOLUME MARKED FOR DISMOUNT 
3a 38 AS) «(15)—COEO p 1 BBS  S*#DEVSV_DMT,UCBSL _DEVCHARCRS), OS ;IF SET, VOLUME MARKED FOR DISMOU 
05D 1 3 
0507 1191 ; SUBROUTINE TO CHECK IF VOLUME NOT MOUNTED OR MOUNTED FOREIGN. IF BOTH 
p 1 ; CHECKS SUCCEED, THEN UPDATE TRANSACTION COUNT. ELSE RETURN APPROPRIATE 
Be cn 
0507 1196 CHKMOUNT CHECK IF VOL UME MOUNTED AND NOT FOREIGN 
538 aS 13 €1 050 1199 S*#DEVSV_MNT,UCBSL DEVCHAR CAS) 1s z1F CLR, VOLUME NOT MOUNTED 
9 64 AS 14 EO ‘ De 1198 BBS S*#UCBSV-DISMOUNT ,OCBSL_STS(R55,108 :IF SET, NOT REALLY MOUNTED 
Ba5 18 «£0 ( : a0 S*#DEVSV-FOR,UCBSL_DEVCRAR(RS) ,2O$ ;1F SET, VOLUME FOREIGN 
D5E6 1201 ; 
0566 1 ; 3 SUBROUTINE TO UPDATE VOLUME TRANSACTION COUNT. IF THERE IS A FILE OPEN ON 
D5E6 1203 ; THE CHANNEL, REDIRECT THE 1/0 FUNCTION TO THE UCB ON WHICH THE FILE IS 
Bee {gas | ome 
05E6 1 ? 
05E6 1 $ UPTRANSCNT: {UPDATE V VOLUME TRANSACTION COUNT 
IE as 9 £1 0566 1 8 BBC #DEVSV_ £OD, UCBSL_DEV CHAR(RS) «9 ZBRANCH IF DEVICE IS NOT FILE DEV 
£0 ¢ EB 1 0 BBS #OEVSV"S uce $i~ prev VCHAR(R5).5$ :BRANCH IF DEVICE IS MAGTAPE 
18 A p 05FO 1 0 MOVL JRPSL_ ginpte ),R ;GET WINDOW ADDRESS FROM IRP 
1 05F4 121 BEQL $ BRANCH IF NO FILE OPEN 
55 10A00 D Dore 1218 MOVL Hae onic. GET UCB ADDRESS OF FI 
38 AS) «6 1C AS) ODT sCOOSFA 121 CMPL i P$L~UCB(R3), [RPSL _MEDIAC sSEE IF THIS IS A SPOOL OPERATION 
12 OSFF 1214 BNE ;BRANCH IF YES 
38 a3 : Dd 06 1215 MOVL  R5,IRPSL_MEDIA R3) SREDIRECT ALTERNATE UCB AS WELL 
iC A DO 0¢ 1 4$ MOVL R5,IRPSL-UCB(R SREDIRECT UCB ADDRESS IN IRP 
50 34 AS 00 0609 1218 5S: MOVL  UCBSL_VCB(RS) ,RO :GET ADDRESS OF VCB 
C AO 86 iY: 1 INC VCB$W~ TRANS (RO) [UPDATE VOLUME TRANSACTION COUNT 
0611 1 . 
eT 
‘ 
1 1204 
Bt 188 
1 $ 
IB | 
0618 1 
0618 1 
9 
1 
26 1538 


voe-001 ante GSU UBSGASIRY TARREAAFTAQNSOY IECERCTSES SUSTESIS VACA eece,ymKcOey 4 Pane, 
238 133 -DSABL LSB 
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voe-0o1 ‘ Release Cache Content 1S-seP-19be Sb:isi95 Levevencievsnchroroman:2 "80% (98, 
~SBTTL MKQPSUNLOCK_CACHE = Release Cache Contents and Unlock 


This subroutine is entered as a Oyptes Bioch ing AST when another file 
system in the cluster requests a flush of all gaches ° ’ pers cular 
type. It passes the AST on as a real process AST to the fi 

cache server process. 


INPUTS: 
R1 


e system's 


AST parameter 
UCB address + cache type in low bits 


Sete Ge Se Ge Se Se Ge Ge Ge Ge Ge 
aa 


MQPSUNLOCK_CACHE:: 
Bit onnr 8! RS : get UCB address 
#°C*X7,81,RO : and cache type code 
f UCBSL_DEVCHAR(R 488 ; if not mounted, don't do it 
Rp ot DEVCHAR(RS) ,40$ ; if mounted foreign, don't 
; get VCB address 
; get cache block address 


Common 
ooo-ow 


CACHE EQ 
NT_CACHE EQ 2 
A_CACHE EQ 3 
3 check cache type 
3 branch if quota cache 
; branch if extent cache 
EVCASB_F IDCACB, VCASL_FIDCACHE (R4) .R5 : get file ID cache ACB 


CYC ACE _ERTCACE. VEASL EXTCACHE (R4) .AS ; get extent cache ACB 


one eee nkoe 


COR ee MOO 


PF 3 Oem 
ee Woooanmm 


YEBSL QUOCACHE (RS) .AS 3: find quote cache 
4 3; branch none 
#vVCASB oupr uece R5 ; get quota cache ACB 
R1, ACBSL_ASTPRM(RSS : Set_up AST parameter 
XOP$GL_FILESERVER,ACBSL_PID(RS) ; and PID 
ACP there isn't one 


NO. ; bad neng i 

XOPS$GL_FILESERV_ENTRY,ACBSL_AST(R5) ; and address 
RB 3; no priorit ost 
gary) 3 and queue tn T 
RO,NOACP ; bug check if error 


» 
3 


: To here on error returns from SCHSQAST - our server process has disappeared. 
NOACP: BUG_CHECK NONEXSTACP,FATAL ; server process disappeared 


SOFT 9 9M OW ON NW OONNVODW DW OVW MMMM > OO 


SN NEO OA 


4) 


$ 


9 
vou-oo1 XOPSBLOCK ROUTINE = Block nace action nou eS 13be SbTREAS HN Hck her kan; | P80? 9, 
-SBTTL KXQPSBLOCK_ROUTINE = Block further XQP activity. 
: XOPSBLOCK ROUTINE 
te Ry wate te te not an fdt routine, but needs op hese in 
ystem Blocking reutive. The lock itse 


He Shean’ Fifexor before the f 


he inon=paged exec. 


ile system request is performed 
en volume as part of mounting the volume. 

; If th {ike system quiescent when this routine, is called, a kernel 

ast will be queued to execute in the “- ext z eee swap oe. That 

; routine $9} Lows this one. Otherw se. flag $ set so that all 
further file Syepee requests for the volume are b Seked, and the Last 
one underway will complete shutting this volume down. 


ALL of this s necessary so phat volume eee can rummage around 
the volume without other activity messing 


The ACB u used by aa B routine is part of the per volume file system 
database in non-paged pool, and was set up by the file system when 
the lock with this blocking routine was arned. 
Called at IPL_SYNCH. 
INPUTS: 

R1 = blocking routine parameter = address of VCB. 


; Registers RO - RS are available as scratch registers. 


ss © Se Se Se Se Se Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Gs Ge Se Ge Se 


KOPSBLOCK ROUTINE: : 
TSTw BSW_ RVN (R1) 


bay is spies volume set? 
beeW YEBOU_ACTIVETY (R1) 
BEQL 108 


OE Al 8B 
. eS q it is. 

00A0 f ° Is volume quiescent? 

1 EQL it is. 

Not quiet. Exit. 


CLAL VCBSL_BLOCKID (R1) note lock is disarmed. 
ASSUME VCBS$S"ACB EQ ACBSC _LENGTA 


: There is an ACB block built into each VCB. The size allocated 
; in the VCB MUST match the real VCB. 


ROVAB  VCBSB_ACB (R1), RS 


BSBW SCHSQAST 
Hy RO,NOACP 


008C C1 D4 


— 
So 
fo 


TR Be ee te ee 
o 
a 
o 
Co 
» 
a 


55 O0A8 C1 9 


queue ast to dequeue lock. 


odéress "4 
no prior " Zefuneail 
Sus check if error 


50 $0 AG 43 508: MOVL VCBSL_RVT (R1), Re 3 get mH address. 
AO ? DECW yt “ACTIVITY (RO) ; 1s volume set quiescent? 
F f BNEQ $ ; NEQ not quiet. Exit. 
4A pe CLRL avis wit (RO) 
55 8A MOVAB B-ACB (RO), RS 
ASSUME RVISS “ACB EQ ACBSC_LENGTH 


a a a a a tk ed ot = = = 8 = 2 4 = 4 2 2 — — — — 2 2 4 ss = 8 a 1 ss 


PEPE PUMA AMAA CETONIIRINININININININ 2 ee 


DEBI 2S OOD NIA AE UM © OO NAN EWN @§ OC OOD NA NEW OS ODNAUE 


$< 


9 
a irae 


ISCSERSIGEE SAFES YNCUMECSReERCHPM Mae, 2 


r ¢ There is an ACB bulls into 
ni fength provided | n the 
. ae 


BRB 208 


avi 


RVT. 
MUST match that of the real ACB. 


roe 


i 


° ~ 4 F 
XQPSDEQBL 


TI] 


a a 


110¥ DECISION TABLE, acrYOM’ROU J¢-SER-1994 Q1:35:16 YAK/vA. 


-SBTTL KXQPSDEQBLOCKER = dequeue blocking lock 


p++ 
; XQPSDEQBLOCKER 


s ENTRY NOPSPEGBLOCKER. 0 
RQ -(SP) 


RL =($P) 
PUSHL 4(A 


cro 
YSAC 


3 save no registers 
; null arguments 


P) . bork ig §8 dequeue. 
CALLS #4,G*SYSSDEQ-P1SYSVECTORS+*x800000 
BLBC RO,LOCKERR ; bug check on any error 


RET 3 exit. 


SPOT MAR: 2 


This routine dequeuves Ps er volume (or volume set) blocking lock. 
it qzecutes as a kerne es in the context of the swapper. 
t is initiated by the blocking routine above. 


The ast parameter is address of the lock id to be dequeued. 


Pave ih; 


SHAY PESO GuBLE AeTTOM Roy te>sep—toee SUTESAG YALE Buccs YOKOR Pome 


-SBTTL KQPSREL_QUOTA = Release Quota Cache Entry 


ses ob! 


+ 
+ 


; KQPSREL_QUOTA 


; This routine is entered by a forpatovet block ine AST on @ system owned 
; Quota cache lock. The event of the blocking AST indicates that the cache 


; entry 3 pe ing requested by another erecessor: therefore, we release 
; the gck and the cache entry contents). The actual releasing of the 
; lock done by an AST queued to the swapper, which executes the routine 


i ollowing this one. 

; Called at IPLS$_SYNCH 

. INPUTS: 

R1 = address of cache entry requested 


TIVI IV FIOHOOOAONOAOOAOOOOOAOAAOOAAAOOOAOOOOOOO 


FFD CODIFIED CO VUITTON 


at tt tS 
SO OD CO. GD 09 CD CD 0D OD OD CD 
NOUS Uitu—OW0o 
Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se See 


9 ae 
9 
4 XQPSREL_QUOTA:: 
95 ; There is one ACB for each volume, back in the header of the quota 
38 3; cache. We find the cache header by using the cache entry's index 
4 3 to subtract back. 
61 3C 39 MOVZWL VCASW_QUOINDEX(R1),RO ; get entry's index 
1c | C4 400 MULL  #VCAST_QUOLENGTH,RO i compute offset in bytes 
ic C0 401 ADDL #VCASL-QUOLIST-VCA$B_QUOACB-VCASC_QUOLENGTH,R 
4 § ; add in Reader, point to ACB 
— a .. 4 SUBL3 = RO,R1,R5 3 point to ACB 
1405 51 00 404 OVL  R1,ACBSL_ASTPRM(RS) ; AST param is cache entry 
¢ Be 405 CLRL R2 3; no error ity increment 
iM ae 4 $ BSBW SCHSQAST ; rest of ACB is set up - queue it 
9F 50 Fe 40 BLBC RO,NOACP 
5 408 RSB ; bug check if error 


00000004 

0004 

52. 04 aC 00 

62 oD 

16 0B A2 «EB 

ie 

7 D4 

04 hs DD 

80000000 ' GF 9 4 
2— 50 =«OE 


04 A 7C¢ 
2 11 
7E 7 
BF AF 8 9F 
oe D 
E C 
7E 04 
OOO0004F 8F 4 
{bb 
E D4 
80000000 ' GF 44 
08 HH 
0B ag 1 
6 E ? 


ses oh 


Se es De eR Bs Bs Bees Be oO 
zm 


DDD DW POPPI MOD: NIM BD GOD a WOOO ONS WD NIN 9 


Rtatat tottotat tutat tot tatat tote tots 


PEA AAAAAAAO 


PONNONNONONIN | | | @§ BQO OOOOCCOOO TN nn AMMmmmm 


SSSA AAA AAA AO 


SOOCOCOSOSOCOOOOCOOOOCOOCOOOOOOOOOOOOOOOoOO 


pec ISION TABLE action® ROU 1878 $ o- 1880 gt: 73: \§ yeu Macro V04-00 


= Release Lock 
~SBTTL 


+ 
o 


accor 


Y> Sots teeewoteneSeteneurteee 
a 
g 


STPARAM = 4 


; To here if we 
; entirely. 


mee Ge Gee 
oO 
ad 


RQ 
Pus 


~ 

o 

tad 
BWWOoVVIIoOoOVIO — 
oer > Cc 

< 

= 


LOCKERR 


a a a a ee ee ee a ee a a a ag a 
Sah Rahal ah Rah a ee ek teeta Deel el la Ue Nel Ne Nee Ue Neh le ak ek ek ak ak ek ek ek ae ek ek ek ek ek ek ae ee ee ee ee ke 


DPRQAEDPRXA.E DAD PAs Be Be BS BS BEE AINA AI II POPPIPINIPININUDY 4 tO 


PAL WN 9 9 OONANE WIN 9 OO NAME WIN 0 OOD NOA UE WIN CO OD NAME WP "OOOO FE WO 
uw 
cr 
nw 
=r 
_ 


XQPSUNLOCK_QUOTA 


This routine executes in the context of the swapper as a kernel AST. 
It coqyeuse or demotes the lock on the specified quota cache entry 
ng to its current status. 


ASTPARAM = address of quota cache entry 


: ; Bug check on any Lock manager errors. 


‘BUG. CHECK XQPERR,FATAL 


P 
on Quota SYS.SRCISYSACPFDT.MAR;2 a dy 


XQPSUNLOCK_QUOTA = Release Lock on Quota Cache Entry 


XQPSUNLOCK_QUOTA,*M<R2> ; save 
ASTPARAM(AP) ,R2 : get 

VCASH QUOINDEX+2 Ea vas UOLRU 
WeASH QUOINDEX(R2) 3 save we index and LRU counter 


AID EQ 0 
YCASB_QUOFLAGS(R2),10$ ; branch if valid = demote lock 


R2 
o gcerece of cache entry 


-(SP) ; null arguments 

-(SP) ; fe. veque block 
VCASL_QUOLKID(R2 to dequeue. 
#4, G®SYSSDEQ-P1 YsvecToks+*x80000080 

RO, check on any error 


CA $L_GUOR ECNUM+3 
3 noes cache entry vacant 
3 ex 


) 
$ 
i 0 OPK! 
veh L_QUORECNUM EQ vc VCASL’ QUOLKID+ 
) 


are ipo the lock down, instead of releasing it 


(SP) null acmode end pytre, ores 
XQPSREL_QUOTA re-arm same pt ocking 
R cache oor s AST =: 
=} 38} null eetee’ one  perent ID 


(SP) null er 
#LCKSmM CONVERT ALC KSA. NOQUEUE'LCKSA. CVISYS(LCKSM _VALBLK!LCKSM_SYNCSTS 
VCASR BU0L 9 ; lock status block 


3 ioe 
pgene-arovec rons etaee 


b ua. heck on any error 
QUOVALID, VCASB_QUOFLAGS(R2) ; mark entry not valid 


MOCASW GUOINDEXTRS) ¢ ; restore index and LRU counter 


voe-601 coh SRYLE BESEEION TaMuGncTTON nou te-septgge QUTEAG YAK taece.yOKeOe 4 Paae Tae 


1 ie -SBTTL XQPSFCBSTALE = Blocking routine to mark FCB as stale. 
470 : 
471 ; This routine i system blocking routine called from the lock manager 
472 ; with is at Tot synch. 2 vitt set the STALE fl in the FCB. - 
2 ; The blocking routine is associated with the access lock on the file. 
f 147 : INPUTS: 
f 1476 ; Ri = fcb address. 
120 3 
tse egg fm 
; 1480 XOQPSFCBSTALE:: 
07 OAAl 9 7 14 CMPB FCBSB_TYPE (R1), #DYNSC_FCB : Is this an FCB? 
F6 1 7 14 NEQ LOCKERR ; Unexpected answer. 
22 Al 0100 BF A 7 14 BISW2 #laFCBSV_STALE, FCBSW_STATUS (R1§ ; Set flag. 
05 O73A 1484 RSB ; That's it. 
re th 
7 14 $ END 


SYSACPFDT 
Symbol table 


ACBSC_LENGTH 
ratty 


BRACCVIO1 
RMODIFY 
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Soreres S2eee 
xr OVE 

ODOC OCOLO 
BOO Aro 
ow 
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> 


>< ee OE OE OE OO OO 
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ASTPARAM 
yyy! ie 
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geeerene 
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eteeeeeee 
gereeree 
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aD met Bn bd > 


eo 


st et ok a 


rae 
sustate 


| ed ceed eed oe oe ed el nn ee bs bs a 


R 
MMGSGL_SPTBASE 


Raeeeeee 
geeraeee 
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Symbol. ta ~ ACP FuncTION DECISION TABLE ACTTON ROU 16-SEP-1984 91:35:19 YAHLWRE ac ze YOK=OR 


table 


AXDESCR = 2 VASS VEN = 000000 
NE WMODE a VAS EVEN = 00000008 
NOACP R 1 VCASB_EXTCAC = 0000001¢ 
P = Vv Age. 1OCAC = 90000008 
PISYSVECTORS eeeeerer x 01 VCA B_QUOACB = 0000 0 OC 
P = 01 VCA$SB_QUOFLA = DC 00000€ 
P = 00000008 VCA$SB~QUOF LUSHACB = 00000028 
PG = 90000 VCA C~QU0L N = O¢ 000¢ 
PS = 900001 VCASL_EXTCACH = 9000000 
PO . 10000 VCASL-FIOCACH = D6 NC 000¢ 
PCBSL_JIB = 00000 VCASL“QUOLIST = 000000 
PCBSQ_PRIV = QO00U VEASL_G 44 = 00000004 
PCBSW DIOCNT z 906 00 3 VCA L_QU0 ECNUM = 000000 a 
PRS_IPL = QUV0U VCASM_QUOVAL ID = YUV000E 
parse ue = 00000( f VCASR_QUOLOCK = 00000000 
PRVSV~ROUNT = 00000011 VCASV-QUOVAL ID = 0000000 
PTESS-PROT = 00000 VCASW~QUOINDEX = 0000000 
PTESV PROT = 00000 6 VCA$W_QUOLRUX = 0000000 

R D0¢ R01 VCBSB-ACB = 0000005 
RVTSB_ACB : VCBSL“BLOCKID = 000000 ¢ 
RVTSLBLOCKID = 000 VCBSL~CACHE = 00000¢ 
RVTSS_AC : ic VCBSL~QUOCACHE = 90000¢ ¢ 
RVTSU-ACTIVITY = 000000 VCBSL-RVT = 900000 
SCHSOAST » a VCB$S_ACB = 000000 3 
SETUP_ERASE 1 VCBSW"ACTIVITY = 000000A 
SS$_ACCVIO 5 CBSW_RVN = 0000000E 
$$~BADPARAN z VCBSW~TRANS = 0000000¢ 
$$$ ~DEVFORE IGN 2 WCBSB-ACCESS = 000000 
$S$_DEVNOT = WCBSL_ORGUCB = 
SS$_ENDOF FILE = WCBSL_READS = 
$$$~EXQUOTA . WCBSL “WRITES : 
SS$_F ILALRACC = WCBSM_NOTFCP = 
SS$_FILNOTACC = WCBSM_READ = 
SS$_ILLBLKNUM = WCBSM_SHRWCB = 
SS$_ILLIOF UNC = WCBSV_NOTFCP a 
SS$_IVCHNLSEC = WCBSV_READ s 
$S$"NOPRIV 2 UCBSV“READCK . 
SS$_NORMAL = WCBSV_SHRWCB = 
SS$_WRITLCK = WCBSV_WRITE = 
SYSSDEQ eeeeeses = Ot UCBSV~WRI TECK s 
SYSSENQ eereenee X01 WCBSV"URITE. TURN 2 
UCBSB_DEVCLASS ~ CBSW_ACON = 
UCBSB_F IPL = EFCNT = 
UCBSL DDT . WRDESCR 1 
UCBSL_DEVCHAR s XQPSBLOCK ROUTINE 1 
UCBSL_MAXBCNT = xQPp cOSL OCKER 1 
UCBSL_MAXBLOCK = XQPSFCBSTALE 1 
UCBSL_STS = MQPSGL_FILESERVER eteerese =X 1 
UCBSL_VCB = MQPS$GL_FILESERV_ENTRY aeerenee §6X 1 
UCB$V_D1SMOUNT = XQPSREC_QUOTA 3 RG 1 
UCBSV_MOUNT ING = XQPSUNLOCK _CACHE RG 1 
UCBSW_STS = XQPSUNLOCK _QUOTA F RG 1 
UPBY TENT R 1 KQUOTA FR 1 
UPBYTCT1 R 1 
UPTRANSCNT R 1 
VASA_BYTE = 
VASS_BYTE = 


oe sere ine set Limit was 4259 pages. 
1620 = tg BS cs 21 pages) of virtual memory were used to buffer pe intermediate code. 

There were 160 pages of symbol table space atjece ed to hold 2959 non-local and 96 Local symbols. 
1487 source si were read in Pass 1, produci ng 4 object records in Pass 2. 

9 pages of virtual memory were used to define 38 macros. 


i en os + 


! Macro library statistics ! 


eee momen + 


Macro Library name Macros defined 


eee SpUAaB ESV IBISTARLET ALB;2 fi 

TOTALS ¢ (all libraries) 35 

3093 GETS were required to define 35 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSACPFDT/OBJ=0BJ$:SYSACPFDT MSRC$:SYSACPFDT/UPDATE=(ENHS:SYSACPFDT) +EXECMLS$/LIB 
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SYSACPFDT = ACP FUNCTION DECISION TABLE action ROU 16-SEP-1984 AX/VMS Macro V04-00 = 7 SYS 
Psect synopsis 18-366 1982 3h: 3: 4 SYS.SR 58 YSACPFDT.MAR;2 ~ (18) v04 

@eeesesescesoon sen} 

! Psect synopsis ! 

Peewee eeeoooceeceee} 
PSECT name Allocation PSECT No. Attributes 
- ABS. ( » ( -) worts USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC ovis 

BLANK . ( 1851.) ( 1.) NOPIC USR CON REL LCL NOSHR' EX WRT NOVEC BYT 
$aBS$ ( :) ( 2.) NOPIC USR CON ABS LCL NOSHR EXE WRT NOVEC BYTE 
oe oe 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization : :00:01.71 
C processing 1 : 9 : ‘Ba: ; 
pees 1 ake , 6 00:27. : 130 - 
ymbo e sor : : Ps + $ . 
Pass é 27 :00: $°5 00:14. : 
Symbol table output 2 :00:00. :00:00.3 
Psect synopsis output :00:00. :00:00.11 
Cross-reference output ‘ :00: 00 
Assembler run totals 111 739.4 7:02:15. 
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